Magnum One

home *** CD-ROM | disk | FTP | other *** search

/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d8 / qmdm_mse.arc / QMODEMMS.DEF < prev next >

Wrap

Text File | 1991-03-03 | 35.5 KB | 804 lines

;------------------------------------------------------------------------------ ;-- Q M o d e m 4.2f Microsoft M o u s e P r o g r a m -- ;-- -- ;-- Written by Rick Schaefer Oct. 1990 -- ;-- Modified by Larry Bennett Feb. 1991 -- ;-- -- ;-- This program was inspired by Bob Rapp whose mouse program I down- -- ;-- loaded from The Forbin Project BBS (319) 266-0540, home of Qmodem SST. -- ;-- Since this is my first attempt at writing a mouse program of this size, -- ;-- any suggestions or comments would be very helpful and appreciated. -- ;-- There is no charge for this program because I know what it is like if -- ;-- you are used to using a mouse and suddenly have a program that doesn't -- ;-- support one. This is for all those mouse enthusiasts out there!!! -- ;-- -- ;-- -- ;-- I (L.B.) have developed this software using the Microsoft 1.1 MAKEMENU -- ;-- compiler and have tested it with the Microsoft 6.14 mouse dirver. It -- ;-- does NOT perform satisfactorily with the Microsoft 5.0 mouse driver. -- ;-- -- ;-- ENJOY!!!!!!!! -- ;-- R. S. & L.B. -- ;------------------------------------------------------------------------------ ;-- -- ;------------------------------------------------------------------------------ ;-- -- ;-- Note that a majority of the TEXT statements in the popup menus have -- ;-- been commented out. They are left here for documentation purposes -- ;-- only (as an indication as to the "target" for the select statements). -- ;-- -- ;------------------------------------------------------------------------------ ;--- Change these numbers to change mouse speed. Lower#=Faster Mouse:─┐ BEGIN LeftB,RightB,BothB,GoLeft,GoRight,UpM,DnM,150,50;<─────────────┘ LeftB: EXECUTE RETURN ;Always enter RightB: EXECUTE ESCAPE ;Always escape GoLeft: MATCH 25,17,,"F1-Topic Index",LeftM,GoLeft2 ;Left & Right GoLeft2: MATCH 1, 26,,"═ Batch Upload",CtlLtArrow,GoLeft3 ;motion only in GoLeft3: MATCH 1, 34,,"═ Setup Menu ═",LeftM,GoLeft4 ;batch upload, GoLeft4: MATCH 1, 26,,"═ Setup Manu -",LeftM,Noaction ;Qinstall GoRight: MATCH 25,17,,"F1-Topic Index",RightM,GoRight2 ;help or Qinstall GoRight2: MATCH 1, 26,,"═ Batch Upload",CtlRtArrow,GoRight3 ;menus/screens GoRight3: MATCH 1, 34,,"═ Setup Menu ═",RightM,GoRight4 ; " " " GoRight4: MATCH 1, 26,,"═ Setup Menu -",RightM,Noaction ; " " " UpM: MATCH 1,34,,"═ Phone Book ═",UpArrow,UpM2 ;Up and down motion UpM2: MATCH 25,17,,"F1-Topic Index",UpArrow,UpM3 ;only while in UpM3: MATCH 1,26,,"═ Batch Upload",UpArrow,UpM4 ;phone book, help, UpM4: MATCH 25,15,,"Arrows-Scroll",UpArrow,UpM5 ;batch entry, UpM5: MATCH 25,4,,"SCROLL-BACK",UpArrow,UpM6 ;Scroll Back, UpM6: MATCH 25,3,,"<dir>",UpArrow,UpM7 ;directory view UpM7: MATCH 1, 34,,"═ Setup Menu ═",UpArrow,UpM8 ;and Qinstall UpM8: MATCH 1, 26,,"═ Setup Menu -",UpArrow,Noaction ;menus/screens DnM: MATCH 1,34,,"═ Phone Book ═",DnArrow,DnM2 ; " " " DnM2: MATCH 25,17,,"F1-Topic Index",DnArrow,DnM3 ; " " " DnM3: MATCH 1,26,,"═ Batch Upload",DnArrow,DnM4 ; " " " DnM4: MATCH 25,15,,"Arrows-Scroll",DnArrow,DnM5 ; " " " DnM5: MATCH 25,4,,"SCROLL-BACK",DnArrow,DnM6 ; " " " DnM6: MATCH 25,3,,"<dir>",DnArrow,DnM7 ; " " " DnM7: MATCH 1, 34,,"═ Setup Menu ═",DnArrow,DnM8 ; " " " DnM8: MATCH 1, 26,,"═ Setup Menu -",DnArrow,Noaction ; " " " ;----------------------------------------------------------------------------- ; **** Define the screen matches for calling Popup Menus BothB: MATCH 13,28,,"Delete Entries",FonDel,Match1 ;Delete Fon entry or notes Match1: MATCH 1,32,,"Download",DL,Match2 ;DownLoads Match2: MATCH 1,33,,"Upload",UL,Match3 ;Uploads Match3: MATCH 11,36,,"Exit Qmodem",Exit,Match4 ;Exit Qmodem Match4: MATCH 15,37,,"Redialer",Redialer,Match5 ;Redialer menu Match5: MATCH 7,35,,"Set COM Port",ComPort,Match5f ;Setup COM Port Match5f: MATCH 2,30,,"Set Communic",ComPortf,Match6 ;Setup Com Port Match6: MATCH 7,26,,"Communications",ComPort2,Match7 ;SetUp Baud Rate etc Match7: MATCH 7,35,,"Set Emulation",SetEm,Match8 ;Keyboard Emnulation Match8: MATCH 5,33,,"Table",TranTable,Match9 ;Translation Talbe Match9: MATCH 17,4,,"Valid",Macro2,Match10 ;Fkey editor scrn Match10: MATCH 2,29,,"Function Key",Macro1,Match11 ;Function key Macros Match11: MATCH 11,33,,"Change Log",ChgLog,Match12 ;Change Logged Drive Match12: MATCH 1,26,,"═ Batch Upload",BatchUL,Match13 ;BatchUL window Match13: MATCH 1,34,,"═ Phone Book ═",Fonbook,Match14 ;PhoneBook Commands Match14: MATCH 11,37,,"Hangup",HangUp,Matcha ;Hangup modem? ;----------------------------------------------------------------------------- ;----- **** The following are Match commands to recognize the 7 Terminal **** ;----- **** Emulations used by Qmodem 4.2d **** ;----------------------------------------------------------------------------- Matcha: MATCH 25,2,,"ANSI",PopHelp,Matchb ;Match to ANSI Matchb: MATCH 25,2,,"Name:",PopHelp,Matchc ;Alternate Match Matchc: MATCH 25,2,,"TTY",PopHelp,Matchd ;Match to TTY Matchd: MATCH 25,2,,"VT100",PopHelp,Matche ;Match to VT100 Matche: MATCH 25,2,,"TVI925",PopHelp,Matchf ;Match to TVI925 Matchf: MATCH 25,2,,"DBUG_H",PopHelp,Matchg ;Match to DBUG Matchg: MATCH 25,2,,"DBUG_A",PopHelp,Matchh ;Match to DBUG Matchh: MATCH 25,2,,"AVATAR",PopHelp,Matchi ;Match to AVATAR ;----------------------------------------------------------------------------- ; The following match statements check for the Command (Help) menu and Help Screens ;----------------------------------------------------------------------------- Matchi: MATCH 1,33,,"═ COMMAND MENU ═",PopHelp2,Matchj Matchj: MATCH 25,17,,"F1-Topic Index",HelpM,Matchl Matchl: MATCH 1,31,,"═ Full Screen Edit ═",FonbookE,Matchm Matchm: MATCH 25,4,,"SCROLL-BACK",ScrollBack,Noaction ;------------------------ Initial help screen --------------------------------------- PopHelp: EXECUTE Home ;Home - Show Help menu PopHelp2: Popup 1, 1, normal ;TEXT "╒════════════════════════════════ COMMANDS ════════════════════════════════════╕" ;TEXT "│ ─────────────────── BEFORE ─────────────────── ──────── TOGGLES ───────── │" ;TEXT "│ Alt-D Phone Book Alt-G Term Emulation Alt-0 Session Log │" ;TEXT "│ ─────────────────── DURING ─────────────────── Alt-1 Backspace DEL/^H │" ;TEXT "│ Alt-C Clear Screen ^Home Capture File │" ;TEXT "│ Alt-F Execute Script ^End Send BREAK Alt-3 Debug Status Info │" ;TEXT "│ Alt-Q QuickLearn PgUp Upload Files │" ;TEXT "│ Alt-S Split Screen PgDn Download Files Alt-5 Host Mode │" ;TEXT "│ Alt-T Screen Dump Alt-6 Batch Entry Window │" ;TEXT "│ Scroll Back Alt-8 Hi-Bit Strip │" ;TEXT "│ ─────────────────── AFTER ──────────────────── Alt-9 Printer Echo │" ;TEXT "│ Alt-H Hangup Modem Alt-X Exit Qmodem Alt-B Beeps & Bells │" ;TEXT "│ Alt-E Half/Full Duplex │" ;TEXT "│ ─────────────────── SETUP ──────────────────── Alt-I Order Information │" ;TEXT "│ Alt-A Translate Table Alt-N Configuration Alt-M ANSI Music │" ;TEXT "│ Alt-J Function Keys Alt-P Change Baud Rate Alt-U Scrollback Record │" ;TEXT "│ Alt-K Change COM Port Alt-Z XON/XOFF Flow Ctrl │" ;TEXT "│ Alt-= DoorWay Mode │" ;TEXT "│ ──────────────────── DOS ───────────────────── Alt-- Status Lines │" ;TEXT "│ Alt-L Change Drive Alt-V View/Edit File ShTab CR/CRLF Mode │" ;TEXT "│ Alt-O Change Directory Alt-W List Directory Alt─┘ Status Line Info │" ;TEXT "│ Alt-R DOS Shell Alt-Y Delete File │" ;TEXT "│ │" ;TEXT "╘════════════ Qmodem SST Version 4.2# Production Compiled 10/25/90 ═══════════╛" SELECT 3, 2, 19, AltD SELECT 5, 2, 21, AltC SELECT 6, 2, 23, AltF SELECT 7, 2, 19, AltQ SELECT 8, 2, 21, AltS SELECT 9, 2, 20, AltT SELECT 10, 2, 20, UpArrow SELECT 12, 2, 21, AltH SELECT 15, 2, 24, AltA SELECT 16, 2, 22, AltJ SELECT 17, 2, 24, AltK SELECT 20, 2, 21, AltL SELECT 21, 2, 25, AltO SELECT 22, 2, 18, AltR SELECT 3, 27, 23, AltG SELECT 5, 27, 21, CtlHome SELECT 6, 27, 19, CtlEnd SELECT 7, 28, 20, PgUp SELECT 8, 28, 22, PgDn SELECT 12, 27, 20, AltX SELECT 15, 27, 22, AltN SELECT 16, 27, 25, AltP SELECT 20, 27, 23, AltV SELECT 21, 27, 23, AltW SELECT 22, 27, 20, AltY SELECT 3, 52, 20, Alt0 SELECT 4, 52, 25, Alt1 SELECT 6, 52, 26, Alt3 SELECT 8, 52, 18, Alt5 SELECT 9, 52, 27, Alt6 SELECT 10, 52, 20, Alt8 SELECT 11, 52, 20, Alt9 SELECT 12, 52, 21, AltB SELECT 13, 52, 24, AltE SELECT 14, 52, 25, AltI SELECT 15, 52, 18, AltM SELECT 16, 52, 25, AltU SELECT 17, 52, 26, AltZ SELECT 18, 52, 20, AltEqual SELECT 19, 52, 20, AltMinus SELECT 20, 52, 20, ShTab SELECT 21, 52, 24, Alt13 SELECT 25, 31, 9, F1 SELECT 25, 42, 29, ESCAPE PEND ;---------------- Popup for help menus ---------------------------------------- HelpM: MATCH 24,68,,"PgUp/PgDn",HelpMupdn,HelpM2 HelpM2: Match 24,68,,"PgUp",HelpMup,HelpM3 HelpM3: MATCH 24,73,,"PgDn",HelpMdn,HelpMnorm HelpMupdn: Popup 24, 16, normal SELECT 1,58,5,PgDn SELECT 1,52,5,PgUp SELECT 2,1,16,F1 SELECT 2,19,22,AltF1 SELECT 2,42,10,ESCAPE PEND HelpMup: Popup 24, 16, normal SELECT 1,52,5,PgUp SELECT 2,1,16,F1 SELECT 2,19,22,AltF1 SELECT 2,42,10,ESCAPE PEND HelpMdn: Popup 24, 16, normal SELECT 1,58,5,PgDn SELECT 2,1,16,F1 SELECT 2,19,22,AltF1 SELECT 2,42,10,ESCAPE PEND HelpMnorm: Popup 24, 16, normal SELECT 2,1,16,F1 SELECT 2,19,22,AltF1 SELECT 2,42,10,ESCAPE PEND ;---------------- Popup for Phone book commands ------------------------------ Fonbook: MATCH 6,32,,"═ Revise Entry ═",FonbookR,Fonbook2 Fonbook2: MATCH 5,29,,"═ Revise Prefixes ═",FonbookP,Fonbook3 Fonbook3: MATCH 19,23,,"══════",Noaction,Fonbook4 Fonbook4: MATCH 17,52,,"══════",Noaction,Fonbook5 Fonbook5: MATCH 25,13,," F1-Help",FonbookE,FonbookM FonbookE: MATCH 6,35,,"═Warning═",Noaction,FonbookE2 FonbookM: Popup 15, 1, normal ;TEXT "╒══════════════════════════════════ Commands ══════════════════════════════════╕" ;TEXT "│ Entries Dial FON │" ;TEXT "│ ^SP/SP - Tag-P/Tag-Untag M - Manual Dial F - Find Tezt │" ;TEXT "│ I-Ins - Insert New Entry A - Find Again │" ;TEXT "│ ^D/D-Del - Delete Tagged/Bar Edit L - Load │" ;TEXT "│ ^R/R - Revise Tagged/Bar E - Edit Prefixes O - Other Info │" ;TEXT "│ T - Tag Multiple N - Attached Note ^P/P - Print 132/80 │" ;TEXT "│ U - Untag All V - Linked Script S - Sort │" ;TEXT "│ Q - QuickLearn ^U - Undo │" ;TEXT "╘══════════════════════════════════════════════════════════════════════════════╛" SELECT 2, 40, 6. RETURN SELECT 3, 4, 26, CheckSpace SELECT 4, 5, 26, INS SELECT 5, 2, 30, CheckDlt SELECT 6, 6, 26, CheckRevise SELECT 7, 9, 18, T SELECT 8, 9, 15, U SELECT 9, 9, 16, Q SELECT 3, 36, 17, M SELECT 6, 36, 19, E SELECT 7, 36, 19, N SELECT 8, 36, 19, V SELECT 3, 59, 15, F SELECT 4, 59, 16, A SELECT 5, 59, 10, L SELECT 6, 59, 16, O SELECT 7, 56, 21, CheckPrint SELECT 8, 59, 10, S SELECT 9, 58, 11, CtlU SELECT 10, 69, 9, F1 SELECT 11, 49, 12, RETURN SELECT 11, 62, 10, ESCAPE PEND FonbookE2: Popup 25, 1, normal ;Notes - editor commands SELECT 1,13,9,F1 ; " " " SELECT 1,22,9,F2 ; " " " SELECT 1,31,8,F3 ; " " " SELECT 1,39,14,ESCAPE ; " " " SELECT 1,53,17,F10 ; " " " PEND FonbookP: Popup 1,1,normal ;Revise Prefixes SELECT 25,35,10,F10 ; " " SELECT 16,47,9,F1 ; " " SELECT 25,46,26,ESCAPE ; " " PEND FonbookR: MATCH 25,41,,"F2",FonbookR2,FonbookR1 FonbookR1: Popup 1,1,normal ;Revise Phone book commands SELECT 25,51,12,F10 ; " " " " SELECT 19,51, 9,F1 ; " " " " SELECT 25,64,13,ESCAPE ; " " " " PEND FonbookR2: Popup 1,1,normal ;Revise Phone book commands SELECT 25,39,11,F2 ; " " " " SELECT 25,51,12,F10 ; " " " " SELECT 19,51, 9,F1 ; " " " " SELECT 25,64,13,ESCAPE ; " " " " PEND ;----------------- These are the neccessary menus to decide what ----------- ;----------------- functions the mouse user desires ----------- CheckSpace: MENU " ^Sp or Sp ",15,25,normal OPTION " Tag/Untag ",SP OPTION " Tag for dial without Prefix Code ",CtlSp OPTION " ESC Exit, no changes ",ESCAPE MEND CheckDlt: MATCH 3,15,," 0 ",D,Checkdlt2 CheckDlt2: MENU " ^D or D ",15,25,normal OPTION " ^D Delete multiple entries ",CtlD OPTION " D Delete bar entry ",D OPTION " ESC Exit, no changes ",ESCAPE MEND CheckRevise: MATCH 3,15,," 0 ",R,CheckRevise2 CheckRevise2: MENU " ^R or R ",15,25,normal OPTION " ^R Revise muliple entries ",CtlR OPTION " R Revise bar entry ",R OPTION " ESC Exit, no revisions ",ESCAPE MEND CheckPrint: MENU " ^P or P ",15,25,normal OPTION " ^P print at 132 char/in ",CtlP OPTION " P print at 80 char/in ",P OPTION " ESC Exit, no listing ",ESCAPE MEND ;-------------------------- Popup Men for D/L protocols --------------- ;-- May have to be edited to reflect the d/l protocols installed on you system DL: Popup 1, 28, normal ;TEXT "╒══ Download Protocols ══╕" ;TEXT "│ │" ;TEXT "│ A - Ascii │" ;TEXT "│ X - Xmodem │" ;TEXT "│ C - Xmodem CRC │" ;TEXT "│ R - Xmodem Relaxed │" ;TEXT "│ O - Xmodem-1K │" ;TEXT "│ Y - Ymodem Batch │" ;TEXT "│ Z - Zmodem Batch │" ;TEXT "╞═══════ External ═══════╡" ;TEXT "│ S - SEAlink │" ;TEXT "│ B - CompuServ B+ │" ;TEXT "│ K - Kermit │" ;TEXT "│ W - WXmodem │" ;TEXT "│ Your Choice ?" ;TEXT "╘════════════════════════╛" SELECT 15,2,17,RETURN ;<=== Increment/decrement the "15" SELECT 3,2,11,A ; depending on the number of external SELECT 4,2,12,X ; protocols that are added/deleted. SELECT 5,2,16,C SELECT 6,2,20,R SELECT 7,2,15,O SELECT 8,2,18,Y SELECT 9,2,18,Z SELECT 11,2,13,S ;\ SELECT 12,2,18,B ; \ These are the external protocol SELECT 13,2,12,K ; / selection statements. Change, add SELECT 14,2,13,W ;/ and delete to fit your installation. PEND ;------------------- UpLoad protocols ------------------------------- ;--- May need to change just like the d/l protocols UL: Popup 1, 28, normal ;TEXT "╒═══ Upload Protocols ═══╕" ;TEXT "│ A - Ascii │" ;TEXT "│ X - Xmodem │" ;TEXT "│ C - Xmodem CRC │" ;TEXT "│ R - Xmodem Relaxed │" ;TEXT "│ O - Xmodem-1K │" ;TEXT "│ Y - Ymodem Batch │" ;TEXT "│ Z - Zmodem Batch │" ;TEXT "╞═══════ External ═══════╡" ;TEXT "│ S - SEAlink │" ;TEXT "│ B - CompuServ B+ │" ;TEXT "│ K - Kermit │" ;TEXT "│ W - WXmodem │" ;TEXT "│ Your Choice ?" ;TEXT "╘════════════════════════╛" SELECT 14,2,17,RETURN ;<=== Increment/decrement the "14" SELECT 2,2,11,A ; depending on the number of external SELECT 3,2,12,X ; protocols that are added/deleted. SELECT 4,2,16,C SELECT 5,2,20,R SELECT 6,2,15,O SELECT 7,2,18,Y SELECT 8,2,18,Z SELECT 10,2,13,S ;\ SELECT 11,2,18,B ; \ These are the external protocol SELECT 12,2,12,K ; / selection statements. Change, add SELECT 13,2,13,W ;/ and delete to fit your installation. PEND ;------------------------ Exit Selection menu -------------------------- ;Exit: Popup 10,20,normal ;<=== Original popup ;TEXT "╒═══════════ Exit Qmodem? ═════════════╕" ; menu removed to ;TEXT "│ Y - Drop DTR & Exit to DOS │" ; use the entries ;TEXT "│ │" ; displayed on ;TEXT "│ X - DTR up & Exit to Dos │" ; QMODEM's status ;TEXT "│ │" ; line. ;TEXT "│ N - Remain in Qmodem │" ;TEXT "╘══════════════════════════════════════╛" ; SELECT 2,7,28,Y ; SELECT 4,7,26,X ; SELECT 6,7,22,N Exit: Popup 25,1,normal SELECT 1,4,21,Y SELECT 1,26,27,N SELECT 1,54,25,X PEND ;------------------------- Redialer -------------------------------------- ;Redialer: Popup 16, 43, bold ;<=== Original popup ; TEXT "╒═══════════════╕" ; menu removed to ; TEXT "│ [C]ycle │" ; use the entries ; TEXT "│ [K]ill │" ; displayed on ; TEXT "│ e[X]tend time │" ; QMODEM's status ; TEXT "│ [ESC] abort │" ; line. ; TEXT "╘═══════════════╛" ; SELECT 2,2,9,C ; SELECT 3,2,8,K ; SELECT 4,2,15,X ; SELECT 5,2,13,ESCAPE Redialer: MATCH 25,21,,"Cycle",Redialer1,Redialer2 Redialer1: Popup 25,1,normal SELECT 1,37,16,X SELECT 1,18,9,C SELECT 1,28,8,K SELECT 1,54,10,ESCAPE PEND Redialer2: Popup 25,1,normal SELECT 1,46,10,ESCAPE SELECT 1,27,9,C SELECT 1,37,8,K PEND ;--------------------------- Change Com Port ------------------------ ComPort: Popup 7, 24, normal ;TEXT "╒═════════ Set COM Port ══════════╕" ;TEXT "│ Choose Active COM port │" ;TEXT "│ │" ;TEXT "│ 1 COM1 Base(03F8) Irq(04) │" ;TEXT "│ 2 COM2 Base(02F8) Irq(03) │" ;TEXT "│ │" ;TEXT "│ Your choice : │" ;TEXT "╘═════════════════════════════════╛" SELECT 4,2,29,K1 SELECT 5,2,29,K2 PEND ComPortf: Popup 2, 24, normal ; Qmodem 4.2f SELECT 4,2,29,K1 SELECT 5,2,29,K2 PEND ;--------------------------- Communication Parameters menu ----------------------- ComPort2: Popup 7, 12, normal ;TEXT "╒════════════ Communications Port Setup ═════════════╕" ;TEXT "│ │" ;TEXT "│ │" ;TEXT "│ Speed Parity Data Stop │" ;TEXT "│ A - 110 F - 9600 K - Even P - 7 R - 1 │" ;TEXT "│ B - 300 G - 19200 L - Odd Q - 8 S - 2 │" ;TEXT "│ C - 1200 H - 38400 M - Mark │" ;TEXT "│ D - 2400 I - 57600 N - None │" ;TEXT "│ E - 4800 J - 115200 O - Space │" ;TEXT "│ │" ;TEXT "╘════════════════════════════════════════════════════╛" SELECT 5,2,9,A SELECT 6,2,9,B SELECT 7,2,10,C SELECT 8,2,10,D SELECT 9,2,10,E SELECT 5,12,10,F SELECT 6,12,11,G SELECT 7,12,11,H SELECT 8,12,11,I SELECT 9,12,12,J SELECT 5,25,10,K SELECT 6,25,9,L SELECT 7,25,10,M SELECT 8,25,10,N SELECT 9,25,11,O SELECT 5,37,7,P SELECT 6,37,7,Q SELECT 5,46,7,R SELECT 6,46,7,S PEND ;-------------------------- Keyboard Emulation ----------------------- SetEm: Popup 7, 24, normal ;TEXT "╒═════════ Set Emulation ═════════╕" ;TEXT "│ Choose Active Emulation │" ;TEXT "│ │" ;TEXT "│ 1 TTY │" ;TEXT "│ 2 ANSI │" ;TEXT "│ 3 VT100 │" ;TEXT "│ 4 TVI925 │" ;TEXT "│ 5 DBUG_A │" ;TEXT "│ 6 DBUG_H │" ;TEXT "│ 7 AVATAR │" ;TEXT "│ │" ;TEXT "│ Your choice : │" ;TEXT "╘═════════════════════════════════╛" SELECT 5,12,9,K2 SELECT 4,12,8,K1 SELECT 6,12,10,K3 SELECT 7,12,11,K4 SELECT 8,12,11,K5 SELECT 9,12,11,K6 SELECT 10,12,11,K7 PEND ;--------------------- Translation Table selections ------------------ TranTable: Popup 5, 25, normal ;TEXT "╒══════ Table Selection ══════╕" ;TEXT "│ │" ;TEXT "│ Select Table to Edit │" ;TEXT "│ │" ;TEXT "│ 1 - INPUT │" ;TEXT "│ 2 - OUTPUT │" ;TEXT "│ │" ;TEXT "│ Your Choice ? │" ;TEXT "╘═════════════════════════════╛" SELECT 5,10,12,K1 SELECT 6,10,13,K2 PEND ;------------------------- Function key Operations ---------------------------------- ;------- For Macro's --------- ;-------------------------------------------------------------------------------------- Macro1: Popup 18, 2, normal ;TEXT "│ │" ;TEXT "│ 1 - Normal 2 - Shift 3 - Ctrl 4 - Alt L - Load ESC - Exit │" ;TEXT "│ │" ;TEXT "│ Your Choice ? │" ;TEXT "╘════════════════════════════════════════════════════════════════════════════╛" SELECT 2,2,12,K1 SELECT 2,15,11,K2 SELECT 2,27,10,K3 SELECT 2,38,9,K4 SELECT 2,48,10,L SELECT 2,60,12,ESCAPE PEND ;-------------------------- Fkey commands -------------------------------- Macro2: Popup 17, 1, normal TEXT " " ;│ Valid Edit Keys : INS - Insert mode Toggle - Field Up │" TEXT " " ;│ DEL - Delete Character - Field Down │" TEXT " " ;│ ─ - Character Left ^─- Word Left │" TEXT " " ;│ ─ - Character Right ^─- Word Right │" TEXT " " ;│ Special Characters : ^M = [ENTER] ^~ = ½ second delay │" TEXT " " ;╘════════════════════════════════════════════════════════════════════════════╛" TEXT " Macro Commands : @SCRIPT @SHELL @SHELLX @DIAL @HELP @EDIT" TEXT " @STAMP $PASSWORD" SELECT 7,26,9,Script SELECT 7,36,8,Shell SELECT 7,45,9,ShellX SELECT 7,55,7,Dial SELECT 7,63,7,Help SELECT 7,71,7,Edit SELECT 8,26,8,Stamp SELECT 8,36,11,Password SELECT 1,25,26,INS SELECT 2,25,24,DEL SELECT 3,25,22,LeftM SELECT 4,25,23,RightM SELECT 5,25,16,ScrENTER SELECT 1,55,14,UpArrow SELECT 2,55,16,DnArrow SELECT 3,55,16,CtlLtArrow SELECT 4,55,17,CtlRtArrow SELECT 5,55,21,ScrPAUSE SELECT 9,37,10,F10 SELECT 9,50,24,ESCAPE PEND ;------------------------------ Change Drive Menu ------------------------- ChgLog: POPUP 13,29,normal TEXT "╞══ Choose New Drive ══╡" TEXT "│ Drive A: Drive E: │" TEXT "│ Drive B: Drive F: │" TEXT "│ Drive C: Drive G: │" TEXT "│ Drive D: Drive H: │" TEXT "╘══════════════════════╛" SELECT 2,2,10,A SELECT 3,2,10,B SELECT 4,2,10,C SELECT 5,2,10,D SELECT 2,14,10,E SELECT 3,14,10,F SELECT 4,14,10,G SELECT 5,14,10,H PEND ;------------------------ Batch UL window menu -------------------------- BatchUL: MATCH 25,49,,"F10-Save to Disk",BatchUL1,BatchUL2 ;BatchUL1: POPUP 7,20,normal ;This menu is called if user is Off-Line ;TEXT "╒═══════ Batch UpLoad Options ═════════╕" ;TEXT "│ │" ;TEXT "│ F2 - Pick List F3 - Last Found │" ;TEXT "│ F4 - Clear F10 - Save to Disk │" ;TEXT "│ ESC - Exit without Saving │" ;TEXT "│ │" ;TEXT "│ │" ;TEXT "╘══════════════════════════════════════╛" ; SELECT 3,3,16,F2 ; SELECT 3,19,18,F3 ; SELECT 4,3,12,F4 ; SELECT 4,20,20,F10 ; SELECT 5,7,27,ESCAPE ;PEND BatchUL1: Popup 1,1,normal SELECT 25, 6,14,F2 SELECT 25,21,15,F3 SELECT 25,37,10,F4 SELECT 25,48,18,F10 SELECT 25,67,10,ESCAPE SELECT 22,67, 9,F1 PEND ;BatchUL2: POPUP 7,20,normal ;This menu is called if user is On-Line ;TEXT "╒═══════ Batch UpLoad Options ═════════╕" ;<=== Original popup ;TEXT "│ │" ; menu removed to ;TEXT "│ F2 - Pick List F3 - Last Found │" ; use the prompts ;TEXT "│ F4 - Clear F10 - Upload Batch │" ; displayed on ;TEXT "│ ESC - Exit without Saving │" ; QMODEM's status ;TEXT "│ │" ; line. ;TEXT "│ │" ;TEXT "╘══════════════════════════════════════╛" ; SELECT 3,3,16,F2 ; SELECT 3,19,18,F3 ; SELECT 4,3,12,F4 ; SELECT 4,20,20,F10 ; SELECT 5,7,27,ESCAPE ;PEND BatchUL2: Popup 1,1,normal SELECT 25, 9,14,F2 SELECT 25,24,15,F3 SELECT 25,40,10,F4 SELECT 25,51,12,F10 SELECT 25,64,10,ESCAPE SELECT 22,67, 9,F1 PEND ;------------------------- Delete Notes or Entry Menu ------------------------------- FonDel: POPUP 13,25,normal ;TEXT "╒═ Delete Entries and/or Notes ══╕" ;TEXT "│ │" ;TEXT "│ 1. Notes Only │" ;TEXT "│ 2. Entries & Notes │" ;TEXT "│ ESC. Return to Directory │" ;TEXT "│ │" ;TEXT "│ Your Choice ? │" ;TEXT "╘════════════════════════════════╛" SELECT 3,7,16,K1 SELECT 4,7,21,K2 SELECT 5,5,27,ESCAPE PEND ;------------------------- If verify hangup activated, Hangup command -------------- ;HangUp: POPUP 11,26,normal ;TEXT "╒═════ Hangup Modem? ══════╕" ;<=== Original popup ;TEXT "│ [Y]es - Hangup │" ; menu removed to ;TEXT "│ [N]o - Don't hangup │" ; use the prompts ;TEXT "╘══════════════════════════╛" ; displayed on ; SELECT 2,2,16,Y ; QMODEM's status ; SELECT 3,2,22,N ; line. HangUp: Popup 25,1,normal SELECT 1,24,26,Y SELECT 1,51,8,N PEND ;----------------------------Scroll Back-------------------------------------- ScrollBack: MATCH 25,20,,"PgUp PgDn",ScrollBackUD,ScrollBack2 ScrollBack2: MATCH 25,20,,"PgUp ",ScrollBackU, ScrollBack3 ScrollBack3: MATCH 25,20,," PgDn",ScrollBackD, ScrollBackX ScrollBackUD: Popup 25,1,normal SELECT 1,19,6,PgUp SELECT 1,24,6,PgDn SELECT 1,57,10,ESCAPE SELECT 1,48,9,C SELECT 1,40,8,S SELECT 1,31,9,F1 PEND ScrollBackU: Popup 25,1,normal SELECT 1,19,6,PgUp SELECT 1,57,10,ESCAPE SELECT 1,48,9,C SELECT 1,40,8,S SELECT 1,31,9,F1 PEND ScrollBackD: Popup 25,1,normal SELECT 1,24,6,PgDn SELECT 1,57,10,ESCAPE SELECT 1,48,9,C SELECT 1,40,8,S SELECT 1,31,9,F1 PEND ScrollBackX: Popup 25,1,normal SELECT 1,57,10,ESCAPE SELECT 1,48,9,C SELECT 1,40,8,S SELECT 1,31,9,F1 PEND ;--------------------------------------------------------------------------------------- ; Key Definitions ;------------------------------------------------------------------------------------- K1: TYPE "1" K2: TYPE "2" K3: TYPE "3" K4: TYPE "4" K5: TYPE "5" K6: TYPE "6" K7: TYPE "7" K8: TYPE "8" A: TYPE "A" B: TYPE "B" C: TYPE "C" D: TYPE "D" E: TYPE "E" F: TYPE "F" G: TYPE "G" H: TYPE "H" I: TYPE "I" J: TYPE "J" K: TYPE "K" L: TYPE "L" M: TYPE "M" N: TYPE "N" O: TYPE "O" P: TYPE "P" Q: TYPE "Q" R: TYPE "R" S: TYPE "S" T: TYPE "T" U: TYPE "U" V: TYPE "V" W: TYPE "W" X: TYPE "X" Y: TYPE "Y" Z: TYPE "Z" CtlU: TYPE 21 SP: TYPE 32 CtlSp: TYPE 0,57 ;???? <===== Does anyone know how to do this? INS: TYPE 0,82 DEL: TYPE 0,83 Home: TYPE 0,71 AltD: TYPE 0,32 AltC: TYPE 0,46 AltF: TYPE 0,33 AltQ: TYPE 0,16 AltS: TYPE 0,31 AltT: TYPE 0,20 AltH: TYPE 0,35 AltA: TYPE 0,30 AltJ: TYPE 0,36 AltK: TYPE 0,37 AltL: TYPE 0,38 AltO: TYPE 0,24 AltR: TYPE 0,19 AltG: TYPE 0,34 CtlHome: TYPE 0,119 CtlEnd: TYPE 0,117 PgUp: TYPE 0,73 PgDn: TYPE 0,81 AltX: TYPE 0,45 AltN: TYPE 0,49 AltP: TYPE 0,25 AltV: TYPE 0,47 AltW: TYPE 0,17 AltY: TYPE 0,21 Alt0: TYPE 0,129 Alt1: TYPE 0,120 Alt3: TYPE 0,122 Alt5: TYPE 0,124 Alt6: TYPE 0,125 Alt8: TYPE 0,127 Alt9: TYPE 0,128 AltB: TYPE 0,48 AltE: TYPE 0,18 AltI: TYPE 0,23 AltM: TYPE 0,50 AltU: TYPE 0,22 AltZ: TYPE 0,44 AltEqual: TYPE 0,131 AltMinus: TYPE 0,130 ShTab: TYPE 0,15 ESCAPE: TYPE Esc ScrENTER: TYPE "^M" ScrPAUSE: TYPE "^~" CtlLtArrow: TYPE 0,115 CtlRtArrow: TYPE 0,116 DnArrow: TYPE 0,80 UpArrow: TYPE 0,72 LeftM: TYPE 0,75 RightM: TYPE 0,77 Script: TYPE "@SCRIPT" Shell: TYPE "@SHELL" ShellX: TYPE "@SHELLX" Dial: TYPE "@DIAL" Help: TYPE "@HELP" Edit: TYPE "@EDIT" Stamp: TYPE "@STAMP" PASSWORD: TYPE "$PASSWORD" F1: TYPE 0,59 F2: TYPE 0,60 F3: TYPE 0,61 F4: TYPE 0,62 F10: TYPE 0,68 CtlD: TYPE 4 CtlR: TYPE 18 CtlP: TYPE 16 AltF1: TYPE 0,104 Alt13: TYPE 0,28 RETURN: TYPE ENTER NoAction: NOTHING